home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_197_makeone.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  2.5 KB  |  62 lines
  1. global colorauthoringpath
  2. global MoveFileOne
  3. global MovePathOne
  4. global Onedata
  5. global movefiletwo
  6. if there is a window Movefileone then close window movefileone
  7. if there is a window movefiletwo then close window movefiletwo
  8. put the long name of this stack into hold
  9. delete word 1 of hold
  10. delete char 1 of hold
  11. delete the last char of hold
  12. put hold into MyPath
  13. do showdialog 1, "512","Do you want to move resources between this stack and another file or between two other files?" , true
  14. put the result into test
  15. if test is "2" then do restext("TEXT", "Exit", colorauthoringpath)
  16. if test is "3" then
  17. answer file "Choose any file to move resources to or from:"
  18. if it is empty then  do restext("TEXT", "Exit", colorauthoringpath)
  19. set cursor to watch
  20. put it into MovePathOne
  21. if MovePathOne is Mypath then
  22. beep
  23. set cursor to watch
  24. put  FullResList("T=ALL", "O=TNIS") into Onedata
  25. put MyPath into MovePathOne
  26. put "Current Stack" into movefileone
  27. do restext ("TEXT", "FinishOne", colorauthoringpath)
  28. do restext ("TEXT", "MakeTwo", colorauthoringpath)
  29. do restext("TEXT", "Exit", colorauthoringpath)
  30. end if
  31. put MovePathOne into process
  32. put  FullResList("T=ALL", "O=TNIS", "W=" & MovePathOne) into Onedata
  33. if Onedata is "Error : This file has no resource fork" then
  34. answer "You will be adding resources to a file without a resource fork." &&¬¨
  35. "This isn't a problem as long as you know what you want." with "Cancel" or "Okay"
  36. if it is "Okay" then put "Empty" & return & "    " into Onedata
  37. if it is "Cancel" then do restext("TEXT", "Exit", colorauthoringpath)
  38. end if
  39. put the last char of process into holdfilename
  40. delete last char of process
  41. repeat until it is ":"
  42. get the last char of process
  43. if it is not ":" then  put it before char 1 of holdFileName
  44. delete the last char of process -- this could be shorter with
  45. end repeat -- changing itemDelimiter to ":", but would require HC 2.1
  46. put holdfilename into Movefileone
  47. do restext ("TEXT", "finishone", colorauthoringpath)
  48. end if
  49. if test is "1" then
  50. if the short name of this stack is "ResGenie‚Ñ¢" then
  51. showdialog 1, "503","Please use Resedit to edit these files. Sorry, but it's for your own good!" ,"True"
  52. if there is a window Movefileone then close window movefileone
  53. if there is a window movefiletwo then close window movefiletwo
  54. do restext ("TEXT", "Exit", colorauthoringpath)
  55. end if
  56. set cursor to watch
  57. put  FullResList("T=ALL", "O=TNIS") into Onedata
  58. put MyPath into MovePathOne
  59. put "Current Stack" into Movefileone
  60. do restext("TEXT", "FinishOne", colorauthoringpath)
  61. end if
  62. do restext("TEXT", "MakeTwo", colorauthoringpath)